home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
0286.ZIP
/
ALPHA.TXT
< prev
next >
Wrap
Text File
|
1986-10-16
|
7KB
|
219 lines
ALPHA - BLOCKS WORLD SIMULATION by Mark Needham
-----------------------------------------------
What is a Blocks World ? It is a tiny world built up
from a board or grid on which several different colour
shapes are positioned. The computer can recognise where
each block is on the board, what shape it is and what
colour it is.
The computer can understand simple commands and questions
that you enter at the keyboard. For example, you could ask
ALPHA,
WHAT OBJECTS ARE TO THE RIGHT OF THE RED TRIANGLE ?
Tell ALPHA your name by saying MY NAME IS ......
***
The board is 2 dimensional and is 8 columns wide and 4 rows
tall. In the initial state, the board has six blocks on it,
four of the rest of the blocks appear on the left of the
screen.
Putting blocks on the board - Use the PUT command
E.g. PUT A YELLOW CUBE ON THE BOARD
PUT A BLOCK TO THE RIGHT OF THE RED CIRCLE
PUT A BLOCK ON TOP OF A YELLOW CIRCLE
There are fifteen blocks in the world.
***
Moving the blocks about - Use the MOVE command
E.g. MOVE THE CIRCLE TO TOP OF THE RED CUBE
MOVE A CUBE TO THE RIGHT OF A CIRCLE
If you use 'THE' as in 'THE CIRCLE' that must be the
only block of that type on the board. If you use 'A' as
in 'A TRIANGLE' ALPHA will randomly choose one. If there
is more than one block of a similar shape and colour you
can specify which one you mean by giving a preposition and
another unique block. A preposition is like 'TO THE LEFT OF'
or 'NEAR TO' etc.
E.g. THE GREEN CUBE WHICH IS ON TOP OF THE RED TRIANGLE
***
Asking ALPHA questions is very simple using either 'WHAT'
or 'IS' or 'HOW MANY'. 'WHAT' can be used to find out what
objects are on the board or relative to a specific block.
E.g. WHAT BLOCKS ARE ON TOP OF THE RED CUBE
'IS' gives a YES or NO answer to the question
E.g. IS THE RED CUBE NEXT TO THE WHITE TRIANGLE
'HOW MANY' counts the blocks
E.g. HOW MANY GREEN BLOCKS ARE ON THE GRID
***
You can also find out what shape or colour an object is by
asking ALPHA.
E.g. WHAT COLOUR IS THE CUBE WHICH IS NEAR THE TRIANGLE
Or FIND THE TRIANGLE WHICH IS ON TOP OF THE CUBE
WHAT SHAPE IS IT
The top window is used for inputing commands and questions.
The cursor can be moved using Control S for left, Control D
for right, Control A to go to the start, Control F to go to
the end and Control Y to delete from the cursor position to
the end of the input screen. Delete deletes last character,
and Control I inserts a space at the cursor position.
***
Removing blocks - Use the REMOVE command
E.g. REMOVE THE RED CIRCLE
Changing shape or colour - Use the MAKE command
E.g. MAKE THE CYAN CIRCLE BLUE
Shapes - CIRCLE, CUBE, TRIANGLE
Colours - (R)ED, (Y)ELLOW, (G)REEN, (B)LUE,
(C)YAN, (M)AGENTA, (W)HITE
Adjectives - ROUND, CIRCULAR, SQUARE, TRIANGULAR, CUBIC
Once an object has been specified it can be refered to as IT
E.g. FIND A GREEN CUBE
MOVE IT ON TOP OF THE RED TRIANGLE
***
Other commands -
QUIT, BYE, END, EXIT - end program
FIND (object) - locate an object
CLEAR {THE} BOARD - remove all objects
SAVE {THE} BOARD - save current board to disk
LOAD {THE} BOARD - load board from disk
DISABLE LIST - stop bottom window list display
ENABLE LIST - start bottom window list again
PLAY {THE} GAME - start the game.
{} contents are optional
***
The Game.
The object of the game is for you to get four blocks of the
same colour in a row, whereas ALPHA must get four blocks of
the same shape in a row. In the game there are only three
colours, RED, GREEN and YELLOW.
Disable the list before starting the game as processing is
faster.
Enter PUT AN OBJECT ON THE BOARD to get things going
ALPHA will check the board after each move to see if anyone
has won.
***
Known Prepositions
TO THE LEFT OF X1 < X2 ON THE LEFT OF X1 < X2
TO THE RIGHT OF X1 > X2 ON THE RIGHT OF X1 > X2
UNDERNEATH Y1 < Y2 ABOVE Y1 > Y2
BENEATH Y1 < Y2 ON X1 = X1
UNDER Y1 < Y2 OVER Y1 > Y2
THE SAME COLOUR AS C1 = C2
THE SAME SHAPE AS S1 = S2
NEAR TO ABS(Y1-Y2)<2 AND ABS(X1-X2)<2
NEXT TO ABS(Y1-Y2)<2 AND ABS(X1-X2)<2
NEAR ABS(Y1-Y2)<2 AND ABS(X1-X2)<2
CLOSE TO ABS(Y1-Y2)<2 AND ABS(X1-X2)<2
AWAY FROM ABS(Y1-Y2)>1 OR ABS(X1-X2)>1
FAR FROM ABS(Y1-Y2)>1 OR ABS(X1-X2)>1
ON TOP OF X1 = X2 AND Y1 = Y2+1
***
+++
-----------------------------------------------------------------------
MIND AND THOUGHT EMULATIONS ROUTINES
====================================
IBM FORMAT DISKS ONLY !
BBC ALPHA SOURCE ON 80 TRACK DISK ONLY !
TURBO PASCAL VERSION 3.00 REQUIRED IF YOU WANT THE SOURCE CODE
!!! IF TOTAL ORDER EXCEEDS @ 12.50 JUST PAY @ 12.50 !!!
------------------------------------------------------------------------
ALPHA source BBC BASIC ............... @ 5.00 : : (1) 80 Track
TURBO PASCAL ............ @ 6.00 : : (2)
Expert System (unresticted) .......... @ 5.00 : : (3)
BASIC source ........... @ 5.00 : : (4)
TURBO PASCAL source .... @ 7.50 : : (5)
LOGIPROG Unrestricted ................ @ 5.00 : : (6)
TURBO PASCAL source ......... @ 7.50 : : (7)
6502 Emulator Unrestricted ........... @ 5.00 : : (8)
TURBO PASCAL source .... @ 6.00 : : (9)
Sideways Printer TURBO PASCAL src .... @ 3.00 : : (10)
CONVERTING BASIC TO PASCAL ?
Automatic Variable Location, BASIC
function to PASCAL function conversion,
and much more @ 5.00 : : (11)
Total = @ (@ 12.50 MAX)
------------------------------------------------------------------------
Address Details ->
My Name is :________________________________________________:
My Address is :________________________________________________:
:________________________________________________:
:________________________________________________:
:________________________________________________:
Post Code :______________:
My Machine is :________________________________________________:
------------------------------------------------------------------------